home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / LORES PLOTTING FORM (IMGWRT).bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  33 lines
  1. 10  REM  **********************
  2. 20  REM   LO-RES PLOTTING FORM
  3. 30  REM   (C) COPYRIGHT 1981
  4. 40  REM  STEVEN SCHWARTZ, PH.D.
  5. 50  REM  **********************
  6. 60  REM 
  7. 70  REM  SET PRINTER TO TOP-OF-
  8. 80  REM  FORM BEFORE BEGINNING
  9. 90  REM 
  10. 100  HOME 
  11. 110  VTAB 4: INVERSE : PRINT "TURN ON PRINTER AND PRESS <RETURN> ";: GET A$
  12. 120  NORMAL 
  13. 130  PR# 1
  14. 140  PRINT  CHR$(9);"132N": PRINT  CHR$(27);"q"
  15. 150  PRINT "PROG. NAME ";: FOR H = 1 TO 65: PRINT  CHR$(95);: NEXT H: PRINT " DATE ";: FOR H = 1 TO 23: PRINT  CHR$(95);: NEXT H
  16. 160  PRINT : PRINT 
  17. 170  PRINT "LAYOUT OF #";: FOR H = 1 TO 94: PRINT  CHR$(95);: NEXT H: PRINT : PRINT : PRINT 
  18. 190  PRINT "                     1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3"
  19. 195  PRINT  CHR$(27);"T08";
  20. 200  PRINT " 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
  21. 210  FOR J = 0 TO 39
  22. 220  FOR I = 1 TO 84
  23. 230  PRINT "-";: NEXT I: PRINT 
  24. 240  FOR K = 1 TO 41
  25. 250  PRINT "I ";: NEXT K: PRINT " ";J
  26. 260  NEXT J
  27. 270  FOR X = 1 TO 84: PRINT "-";: NEXT X: PRINT 
  28. 280  PRINT "                     1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3"
  29. 286  PRINT 
  30. 290  PRINT " 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
  31. 300  PRINT  CHR$(27);"A"
  32. 310  PR# 0
  33. 320  END